Chip 2004 October/Chip_2004-10_cd1.bin/tema/adam/adam10.exe/{app}/Adam.exe/0/RCDATA/TDM/TDM.txt

Text File | 2004-04-14 | 5KB | 219 lines

object DM: TDM
  OldCreateOrder = False
  Left = 529
  Top = 259
  Height = 276
  Width = 225
  object FoldersDS: TDataSource
    DataSet = Folders
    Left = 21
    Top = 115
  end
  object FilesDS: TDataSource
    DataSet = Files
    Left = 85
    Top = 115
  end
  object DisksDS: TDataSource
    DataSet = Disks
    Left = 149
    Top = 115
  end
  object Folders: TIBDataSet
    Database = Database
    Transaction = FoldersTran
    DeleteSQL.Strings = (
      'delete from folders'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into folders'
      '  (ID, IDDISK, NAME, NOTES, PARENTID, PATH)'
      'values'
      '  (:ID, :IDDISK, :NAME, :NOTES, :PARENTID, :PATH)')
    RefreshSQL.Strings = (
      'Select '
      '  ID,'
      '  IDDISK,'
      '  NAME,'
      '  PARENTID,'
      '  NOTES,'
      '  PATH'
      'from folders '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select * from folders')
    ModifySQL.Strings = (
      'update folders'
      'set'
      '  ID = :ID,'
      '  IDDISK = :IDDISK,'
      '  NAME = :NAME,'
      '  NOTES = :NOTES,'
      '  PARENTID = :PARENTID,'
      '  PATH = :PATH'
      'where'
      '  ID = :OLD_ID')
    Left = 24
    Top = 64
  end
  object Files: TIBDataSet
    Database = Database
    Transaction = FilesTran
    DeleteSQL.Strings = (
      'delete from files'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into files'

        '  (ALBUM, ARTIST, BITRATE, COMMENT, DURATION, FILEORDER, FILESIZ' +
        'E, GENRE, '

        '   CHANMODE, ID, IDDISK, IDFOLDER, LYRICS, NOTES, PATH, POPULARI' +
        'TY, RELEASED, '
      '   SAMPLERATE, TITLE, TRACK, VOLUME)'
      'values'

        '  (:ALBUM, :ARTIST, :BITRATE, :COMMENT, :DURATION, :FILEORDER, :' +
        'FILESIZE, '

        '   :GENRE, :CHANMODE, :ID, :IDDISK, :IDFOLDER, :LYRICS, :NOTES, ' +
        ':PATH, '
      '   :POPULARITY, :RELEASED, :SAMPLERATE, :TITLE, :TRACK, :VOLUME)')
    RefreshSQL.Strings = (
      'Select '
      '  ID,'
      '  IDFOLDER,'
      '  IDDISK,'
      '  FILEORDER,'
      '  PATH,'
      '  DURATION,'
      '  FILESIZE,'
      '  BITRATE,'
      '  CHANMODE,'
      '  SAMPLERATE,'
      '  VOLUME,'
      '  POPULARITY,'
      '  TRACK,'
      '  ALBUM,'
      '  TITLE,'
      '  ARTIST,'
      '  LYRICS,'
      '  GENRE,'
      '  RELEASED,'
      '  COMMENT,'
      '  NOTES'
      'from files '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select * from files')
    ModifySQL.Strings = (
      'update files'
      'set'
      '  ALBUM = :ALBUM,'
      '  ARTIST = :ARTIST,'
      '  BITRATE = :BITRATE,'
      '  COMMENT = :COMMENT,'
      '  DURATION = :DURATION,'
      '  FILEORDER = :FILEORDER,'
      '  FILESIZE = :FILESIZE,'
      '  GENRE = :GENRE,'
      '  CHANMODE = :CHANMODE,'
      '  ID = :ID,'
      '  IDDISK = :IDDISK,'
      '  IDFOLDER = :IDFOLDER,'
      '  LYRICS = :LYRICS,'
      '  NOTES = :NOTES,'
      '  PATH = :PATH,'
      '  POPULARITY = :POPULARITY,'
      '  RELEASED = :RELEASED,'
      '  SAMPLERATE = :SAMPLERATE,'
      '  TITLE = :TITLE,'
      '  TRACK = :TRACK,'
      '  VOLUME = :VOLUME'
      'where'
      '  ID = :OLD_ID')
    Left = 88
    Top = 64
  end
  object Disks: TIBDataSet
    Database = Database
    Transaction = DisksTran
    DeleteSQL.Strings = (
      'delete from disks'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into disks'
      '  (ID, NAME, NOTES, PATH, SCANNED, SERIAL)'
      'values'
      '  (:ID, :NAME, :NOTES, :PATH, :SCANNED, :SERIAL)')
    RefreshSQL.Strings = (
      'Select '
      '  ID,'
      '  SERIAL,'
      '  NAME,'
      '  PATH,'
      '  NOTES,'
      '  SCANNED'
      'from disks '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select * from disks')
    ModifySQL.Strings = (
      'update disks'
      'set'
      '  ID = :ID,'
      '  NAME = :NAME,'
      '  NOTES = :NOTES,'
      '  PATH = :PATH,'
      '  SCANNED = :SCANNED,'
      '  SERIAL = :SERIAL'
      'where'
      '  ID = :OLD_ID')
    Left = 152
    Top = 64
  end
  object Database: TIBDatabase
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'lc_ctype=UNICODE_FSS')
    LoginPrompt = False
    SQLDialect = 1
    Left = 24
    Top = 8
  end
  object FoldersTran: TIBTransaction
    DefaultDatabase = Database
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 24
    Top = 168
  end
  object FilesTran: TIBTransaction
    DefaultDatabase = Database
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 88
    Top = 168
  end
  object DisksTran: TIBTransaction
    DefaultDatabase = Database
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 152
    Top = 168
  end
end